source [file join [file dirname [info script]] .. PAC.tcl]
source [file join [file dirname [info script]] .. utils.tcl]
package require Img

# Creating a new canvas
canvas .can -width 300 -height 200 -background "#E0FFE0"
pack .can 
# Chargement d'une image
image create photo exemple1 -file IMG/zoo.jpg

# Affichage de l'image
.can create image 160 110 -image exemple1
